home *** CD-ROM | disk | FTP | other *** search
Null Bytes Alternating | 1997-01-09 | 3.3 KB | 43 lines |
- '++LotusScript Development Environment:2:5:(Options):0:66
-
- '++LotusScript Development Environment:2:5:(Forward):0:1
- Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
-
- '++LotusScript Development Environment:2:5:(Declarations):0:2
-
- '++LotusScript Development Environment:2:2:BindEvents:1:129
- Private Sub BindEvents(Byval Objectname_ As String)
- Static Source As BUTTON
- Set Source = Bind(Objectname_)
- On Event Click From Source Call Click
- End Sub
-
- '++LotusScript Development Environment:2:2:Click:1:12
- Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
- ' Click event for btnRemove button in the Schedule Display view
- ' Sets up the Done button on the Reservation view to read "Remove",
- ' fills global variables with the date currently displayed in the Schedule
- ' Display view and with blanks for room, start and end time, and switches
- ' to the Reservation view, which displays as a dialog box.
-
- Dim btn As button ' Stores a shorten reference to the Done button
- ' on the Reservation view
-
- ' Assign "btn" as the reference to the Done button on the Reservation view
- ' The object on the other view is referenced through the global variable CurrentDocument
- Set btn = currentdocument.reservation.body.btnDone
-
- ' Change the label on the Done button to "Remove"
- ' Note that the label change occurs before the view is visible.
- btn.text = "Remove"
-
- ' Fill global variables with reservation information
- GlobDateDisplay = source.fbxDateDisplay.text
- GlobStartTime = ""
- GlobEndTime = ""
- GlobRoom = ""
-
- ' Switch to the Reservation view
- Set currentwindow.activeview = currentdocument.Reservation
-
- End Sub ' Click event for btnRemove button on Schedule Display view